Program Matriz;
var
M1,M2:array[1..4,1..4] of integer;
i,j:integer;

Begin
	for i:=1 to 4 do
		for j:=1 to 4 do
			readln(M1[i,j]);
			writeln('--------------------------------');
				for i:=1 to 4 do
		for j:=1 to 4 do
			readln(M2[i,j]);    
clrscr;
			
	for i:=1 to 4 do
		begin
		for j:=1 to 4 do		 
			write(M1[i,j]:-7,'   ');
			writeln;
			end;  		
			
	writeln('------------------------------------------------------------');		
			


			
	for i:=1 to 4 do
		begin
		for j:=1 to 4 do		 
			write(M2[i,j]:-7,'   ');
			writeln;
			end;  		
					
End.